home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbasicpg.zip / INNOVAT.BAS < prev    next >
Encoding:
BASIC Source File  |  1991-02-09  |  430 b   |  31 lines
  1. DECLARE SUB innov ()
  2. CLS
  3. innov
  4. DATA 19, "Innovative", 31, "Computer",41, "Consultants Inc.",
  5.  
  6. SUB innov
  7.  
  8. CLS
  9.  
  10. FOR i% = 1 TO 3
  11.  
  12.     READ column%, word$
  13.      y% = 0
  14.     FOR row% = 2 TO 13
  15.         LOCATE row%, column%
  16.         COLOR 14, 8
  17.         PRINT word$
  18.         LOCATE row% - 1, column%
  19.         PRINT SPACE$(LEN(word$))
  20.         SOUND (6400 / row%), 1
  21.     NEXT row%
  22.  
  23. NEXT i%
  24.  
  25. LOCATE 1, 1
  26.  
  27.  
  28.  
  29. END SUB
  30.  
  31.